;DATE: 8-15-94
;PROGRAM: CPL.LSP
;PROGRAMMER: ROGER D. SECURA
;APPLICATION: ACAD12 POLYLINES
;PROGRAM FUNCTION: CHANGES THE WIDTH OF SELECTED POLYLINES
;
;                  UNFORTUNATELY, PEDIT ONLY PERMITS ONE POLYLINE PICK WHEN
;                  THE WIDTH OPTION IS SELECTED. THE FOLLOWING PROGRAM ALLOWS
;                  MULTIPLE SELECTIONS FOR EDITING THE WIDTH OF POLYLINES.
;
;
;
;
(defun C:cpl ()
(setq a (ssget ))
(setq ts (getdist "\nENTER NEW WIDTH FOR POLYLINE "))
(setq n (sslength a))
(setq i 0)
(repeat n
(setq el (entget (ssname a i)))
(setq i (+ 1 i))
(setq sw (cdr(assoc 40 el)))
(setq sw0 (car(assoc 40 el)))
(setq sw1 (cons sw0 sw))
(setq sw2 (cons sw0 ts))
(setq el (subst sw2 sw1 el))
(entmod el)
(setq ew (cdr(assoc 41 el)))
(setq ew0 (car(assoc 41 el)))
(setq ew1 (cons ew0 ew))
(setq ew2 (cons ew0 ts))
(setq el (subst ew2 ew1 el))
(entmod el)
 )
)